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Enhancing Applesoft with the Toolbox Series 


A number of years ago, when Roger Wagner Publishing was still 
called Southwestern Data Systems, he published Peter Meyer's 
program “The Routine Machine”. The system evolved into four 
packages: Wizard's Toolbox, Database Toolbox, Video Toolbox, 
and Chart'n Graph Toolbox. Each “Toolbox"“ contains a large 
assortment of assembly language routines which enhance the 
capabilities of Applesoft. The "Workbench" (included with each 
Toolbox) allows programmers to add any assortment of these 
routines to their Applesoft programs at any time. The routines 
are all called by using the ampersand (&) statement. 


Roger will make a special deal for Apple Assembly Line sub- 
scribers: he'll send a free copy of the "Trial-size Toolbox" 
(normally $3) to anyone who mentions reading about the package 
here. The disk includes eight ampersand commands, including a 
charting command-set with 12 sub-commands, a fixed-length input 
command, and a print with word-wrap command. All are usable 
under either DOS 3.3 or ProDOS. Also on the disk is the text 
of a 50-page manual. The manual includes a tutorial for the 
toolbox system, a complete explanation of the commands included 
on the sampler disk, and a comprehensive listing of every 
command in each of our Toolbox packages. For the free sampler 
write to Roger Wagner Publishing, Box 582, Santee, CA 92071. 


The Toolbox packages are normally $39.95 each. We'll sell them 
here at S-C for $36 each, or $140 for the complete set. 


DOS 3.3 for the UniDisk 3.5 (RWTS 3.5)....ceceseeceeeeeBill Morgan 


We finally got one of Apple's new UniDisk 3.5 drives tor the 
//e. and let me tell you it's very nice. This small but large 
addition to our favorite computer is about half the volume of a 
Disk II, but each disk stores almost six times as much infor- 
mation. It's even a bit faster than the 5.25" drives, about 
1.3 times the speed. 


Of course there's a catch. In line with Apple's policy of 
supporting ProDOS only, the new device doesn't use DOS 3.3, at 
least not as far as Apple is concerned. There are already 
several different UniDisk versions of DOS, and we're about to 
build our own right here. It's really quite easy. 


There are two parts to the problem: intercepting and handling 
RWTS calls to the UniDisk slot, and formatting a 3.5°* disk with 


a DOS VTOC and Catalog. 


There are a variety of ways to take over a call to RWTS. When 
we call RWTS at $3D9 it jumps on to $B7B5, where interrupts are 
disabled before calling the real RWTS entry at SBD00. Some 
programs take control at $B7B7 and others at $BD00. I looked 
at the code at $BD00 and saw that it does a little housekeeping 
and then at $BD10 loads the accumulator with the slot*l6 value 
from the IOB. That looks like the ideal time to check to see 
if this call is for my slot, so $BD12 is where I patch in the 
jump to my code. If you are uSing several nonstandard devices 
with DOS 3.3 (Sider or other hard disk, RAM disk, other drives) 
you will need to keep track of who's patching into RWTS where. 


Now we come to the question of where to put our version of 
RWTS. There's certainly no room inside DOS for almost a page 
of code plus two pages of buffer. I thought I could probably 
squeeze the code into page three, but that still left that 
buffer (not to mention the crowd already living at that popular 
address!) It occurred to me to throw INIT away and put the 
code inside the existing RWTS at SBEAF, but what about the 
buffer? I finally decided to use the time-honored technique of 
moving the DOS buffers and HIMEM down and installing my program 
and buffer in there. That's also crowded, but where isn't? 

The first working version of RWTS 3.5 ran at $9900, with the 
buffer at S9BOO-9CFF. The installation routine checked to see 
if anyone else was using the space and returned an error if so. 
Applesoft and the S-C Macro Assembler got along with this 
arrangement just fine. so I spent some time polishing the 
program and started to write this article. 


That's when I was forcibly reminded that the S-C Word Processor 
sets its own HIMEM and is firmly convinced that $9900-99FF is 
the buffer for characters deleted off the screen. In other 
words, the first time I tried to save some text to the UniDisk 
it blew sky high- I had decided to live without the Word 
Processor on the UniDisk for the time being when I noticed a 
couple of interesting things in Beneath Apple DOS. There is a 
342-byte buffer inside RWTS at $BBO0-BC55, and the code 
immediately after that bufter is called only by INIT! There 
really are two full pages of available buffer space inside DOS 
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S-C Macro Assembler Version 2.0......DOS $100, ProDOS $100, both for §120 
Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 OWnersS....cccccssccevseeee 920 
ProDOS Upgrade Kit for Version 2.0 DOS OWnerS....ccccccccccreveccesees SIU 
Source Code of S-C Macro 2.0 (DOS only)....ccccccccecceeeee additional $100 
Full Screen Editor for S-C Macro (with complete source code) ........+.949 
S-C Cross Reference Utility......without source code $20, with source $50 
RAK-Ware DISASM.....ccccccvcceceee es Without source code $30, with source $50 
S-C Word Processor (with complete source COde) .ccccccccccccevceeseceee QIU 
DP16: SOUTrCEe: and OD JOC Gee sie. cv 06 ward 6-0 Wb. 6S Gk, ws WSO WSR SOs OS Siew o oie se OU 
Double Precision Floating Point for Applesoft (with source code)......$50 
ES-CAPE (Extended S-C Applesoft Program Editor) .ccrsccoee 
Including Version 2.0 With Source Code..........$50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners)....$30 
"Bad: Of “TEL CKS 2 a5 55: eek. & oe Sree © Hw Siro wn aOR aS eee a oIe wie cw OAs 9D) «6845 
Applesoft Toolbox Series, Roger Wagner Publishing......each ($39.95) $36 
all four ($159.80) $140 
MacASM -- Macro Assembler for MacIntosh (Mainstay).........($150.00) $100 
S-C Documentor (complete commented source code of Applesoft ROMS).....$50 
Source Code of //e CX & FB ROMS OM GiSK..ccccccccccccccccssccccceecees S15 
Cross Assemblers for owners of S-C Macro Assembler.....$32.50 to $50 each 
(Available: 6800/1/2, 6301, 6805, 6809, 68000, 2-80, 2-8, 8048, 
8051, 8085, 1802/4/5, PDP-1l, G11650/70, others) 


AAL Quarterly DiSkS...cccccccvccsccseveeceee each $15, or any four for $45 
Each disk contains the source code from three issues of AAL, 
saving you lots of typing and testing. 
The quarters are Jan-Mar, Apr-Jun, Jul-Sep, and Oct-Dec. 
(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives.) 


Diskettes (with hub ringsS)......cccevecccccceccesse package of 20 for $20 
Vinyl disk pages, 6"x8.5", hold two diskS each......cccccceceeee lO for $6 
Diskette Mailing Protectors (hold 1] or 2 disks).............40 cents each 

(Cardboard folders designed to fit 6"X9" Envelopes.) or $25 per 100 
Envelopes for Diskette MailerS...cccccccccccccceccsccsseceeee 6 Cents each 


65802 Microprocessor (WeStern DeSign Center) ...ccccccccecsceeee (S99) $50 
quikLoader EPROM System (SCRG)..cccccccccccvcccccccsccseseesee (S179) $170 
PROMGRAMER (SCRG) .cccccccccrcccccscvccecesccccccccccesevece (9149.50) $140 
Switch-a-Slot (SORG ee .ei6. 6266: S. 6 Ga iw Sr 8 Wie SOONG AG GE wa Re ewes eC a7 9 e500) $170 


"65816/65802 Assembly Language Programming", Fischer......--($19.95) $18 
“Programming the 65816", EyeS.cccccccccccccccvsccccscceccccee (Seee99) $21 
"Apple //e Reference Manual", Apple Computer....cccccescecces (924.95) $23 
"Apple //c Reference Manual", Apple Computer...cccccccscccee ($24.95) $23 
“ProDOS Technical Reference Manual", Apple Computer........-($29.95) $27 
“Now That You Know Apple Assembly Language...“, Gilder......($19.95) $18 
“Apple ProDOS: Advanced Features for Programmers", Little..($17.95) $17 
“Inside the Apple //c", Little... .ccrccccccccsecvccseccscces (919.95) $18 
“Inside the Apple //e", Little..cc.cccccccvecvccvercvecsccccces ($19.95) $18 
“Apple II+/IIe Troubleshooting & Repair Guide“, Brenner.....($19.95) $18 
“Apple J{ Circuit Description", Gayler....ccccccsccccscsceee (922.99) $21 
“Understanding the Apple II“, Sather... cccccccccsescscevcvecs (922.99) $21 
"Understanding the Apple //e", Sather.ceccccscccseccssccesees (924.95) $23 
"Enhancing Your Apple II, vol. 1", Lancaster.....eccccccccee ($915.95) $15 
“Enhancing Your Apple II, vol. 2", LancaSter...ccccccccccees (Sl17.95) S17 
“Assembly Cookbook for the Apple II/IIe", Lancaster........-.($21.95) $20 
“Beneath Apple DOS", Worth & LECHNELr...ccccccccceccccessceces (919.95) $18 
“Beneath Apple ProDOS", Worth & LeChner.....ccccccccevcsseceee (919.95) $18 
“Real Time Programming -- Neglected Topics", Foster..c.ccccccee ($9.95) $9 
“Microcomputer GraphicS", MYErS..cccvccscccsccvcccccccccsccee (914.95) $14 
"“Assem. Language for Applesoft Programmers", Finley & Myers.($18.95) $18 
“Assembly Lines -- the Book", WaGneL..cccccccecvcseccccccccee (919.95) $18 
“AppleVisions", Bishop & GrOSSDErger..ccsccccccccccccccesesee (939.95) $36 


* On these items add $2.00 for the first item and 
$.75 for each additional item for US shipping. 
Foreign customers inquire for postage needed. 
Texas residents please add 6 1/8 % sales tax to all orders. 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
* 


== (214) 324-2050 ball 
*** Master Card, VISA, Discover and American Express *** 
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along with room for the code. 


So this edition of RWTS 3.5 runs at SBEAF, with its buffer at 
SBBOO-BCFF. I did hit one more snag when I went to uSe that 
buffer area; SBCDF-BCFF is officially unused, which means it's 
a popular place for other patches. My system has part of our 
fast LOAD/BLOAD patch (AAL April 83) there, so I had to shave a 
few more bytes out of my program to make room to move the LOAD 
patch up to SBF97-BFB7. You may have to make some such 
adjustment, so be sure to check for some other patch at S$BCDF. 


The UniDisk 3.5 uses a new software interface, called the 
Protocol Converter. The PC is a sort of serial bus, which can 
have several devices daisy-chained to the same controller. We 
program the PC with a calling structure very Similar to the 
ProDOS MLI calls. Here's an example: 


CALL JSR DISPATCH 


-DA #1 read command 
~-DA PARMLIST 
BCS ERROR 
eee Whatever code 

PARMLIST 
DA #3 3 parameters 
-DA #1 unit number 


~-DA BUFFER buffer address 
~-DA <BLOCK block number (3 bytes) 


That's all it takes to read a 512-byte block into our buffer. 
Notice that this standard specifies a 3-byte block number: all 
current devices use only two bytes of the block number, but 
they're allowing for expansion beyond 32 megabytes. The unit 
number isn't the same as a ProDOS unit; this is the position of 
the device in the PC chain. We need to look up the value of 
DISPATCH in the card. The byte at $CsFF (s = slot) contains 
the offset into the ROM of the ProDOS driver entry and the 
Protocol Converter entry is defined to be 3 bytes after that. 
For example. in my UniDisk 3.5 controller in slot 5 the byte at 
SC5FF is $OA. That means that the ProDOS entry to the card is 
SC50A and the PC entry is $C50D. 


There's a quick look at the Protocol Converter. We haven't 
seen much information published about it yet. The new //c 
Technical keference Manual has a good section, including a ROM 
listing, but the //e UniDisk 3.5 includes no programmer's 
documentation. Bob is planning a more extenSive article on its 
programming tor next month's AAL. Stay tuned... 


Apple's new memory expansion card has a PC interface and this 
RWTS will work with that card as well, but some modification 
will be needed to use more than one PC at atime. The 
installation code coula scan all slots looking for PCs and 
build a table of valid slots and entry addresses. Then the 
initial code at MY.RWTS coula search that table and plug the 
appropriate PC.DISPATCH address into the calls. 


The Protocol Converter sees the UniDisk as 1600 blocks of 512 
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bytes each, for a total of 819,200 (800K) bytes of storage. We 
have no way to find out about actual tracks and sectors on the 
disk; this drive seems to use the Macintosh scheme of a 
variable number of blocks per track. Therefore, we're going to 
translate DOS's tracks and sectors into some block number and 
ask the PC for that block, not worrying about where it actually 
comes fron. 


The VTOC on a DOS disk has room for 50 tracks of 32 sectors 
each. That adds up to 400K, or exactly half a UniDisk, so we 
should be able to set things up with 2 logical drives of 400K 
each. The number of tracks per disk and the number of sectors 
per track are both stored as parameters in the VTOC as well, 
just to make things easier. Two drives per disk means that we 
can put drive one in the lower 800 blocks and drive two in the 
upper 800. Figuring that 32 sectors per track means 16 blocks 
per track and two sectors per block gives us this equation: 


BLOCK = (DRIVE-1) *800 + TRACK*16 + SECTOR/2 


An even-numbered sector is in the lower half of a block, odd in 
the upper half. 


Since each sector is half of one block on the disk, we can't 
just write one sector. We have to read a block, copy the new 
information into half of the buffer, then write that block back 
out. This takes extra time, but simplifies some of the control 
logic because every call does a read first. 


That first working version of RWTS 3.5 did a new read for every 
read call, and a new read and write for every write. Well that 
proved to be much too slow, even slower than the old Disk II. 
Then I realized that nearly all DOS operations are reading or 
writing consecutive sectors in a file. so I must be spending a 
lot of time reading a block that was already in my buffer just 
to get the sector in the other half of the block. Sure enough, 
the performance almost doubled when I started keeping track of 
which block was in the buffer and skipping re-reads of the same 
block. It does seem to be a good idea to make a special case 
of the VTOC sector and always re-read that one. just in case we 
change disks after writing the VTOC as the last operation on 
the old disk. 


Line by Line 


In the INSTALL routine we first make sure there is a Protocol 
Converter in the slot this RWTS expects. If SO, we patch in 
the JMP to our code near the beginning of the normal RWTS ana 
Gisable INIT by patching an RTS instruction at the beginning of 
the command handler. MOVE then puts our routine into place at 
SBEAF and looks up the PC entry point into the ROMS and 
installs that address into the instructions that call the 
interface card. NO.PC provide an error meSsaye if we can't 
find a PC. The ID.TABLE has the bytes which mark a PC 
interface, interspersed with $FFs so we can use the same index 
for the ROM and the table. 
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Get TransWarp”. The fastest accelerator you can buy 


for your Apple™ Ile, IT, or IT +. 


Computing at warp speed! 

Its an experience vou shouldnt miss. And with TransWarp, vou 
wont have to. Because TransWarp will run vour software up to 3.0 
limes faster — \eaving other accelerators in the stardust 

No more vawning while vour Apple™ slowly rearranges text or 
calculates spreadsheets. With 256K of ultra-fast RAM, TransWarp 
speeds up alf Apple software — including AppleWorks, Supercale 
3a, Visic. le and all educational software, graphics and games. And 
its Compatible with ell standard peripheral cards (such as Ram- 
Works I] and Apple memory cards), Profile and Sider hard disks, 
3%" UniDisks, count cards, modems. clock cards, Mouses and 
more! You name it. TransWarp accelerates it. Theres even a 16 bit 
upgrade chip available should 16 bit software become available for 
the Apple. 


“IT recommend Applied 
Engineering products 
wholeheartedly: ” 


Steve Wozniak, the creator 
Of Apple Compuier 


An important difference. 

TransWarps not the only speedup card on the market. But its 
the only one that accelerates vour Apples main memory, ROM 
and auxiliary memory. And with more and more programs 
residing in auxiliary memory, buving anyone elses accelerator 
makes less and tess sense. TransWarp even works with most 
D.M.A. devices including the Swvft™ card. 

Theres one more difference Since TransWarp doesn't use mem- 
ory caching, it accelerates a@lf software — ancl not just most of it 


A cinch to use. 

Simply plug TransWarp into anv slot in vour Apple UH. TE+ or He 
—~ including slot 3 in the He. Instantly voull be computing at 
speeds vou only dreamed about before. And should vou ever wish 
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to run at pormal speed, simply press the ESC kev while turning 
vour Apple on. 

Since TrinsWarp is completely transparent. vou won't need pre: 
boot disks or special software. Its ready to go right out of 
the package! 
Speed = Productivity 

Imagine the productivity gains voull achieve when vour pro- 
shams ure running over three times faster. TransWar is so power: 
ul, your Apple will make IBM PCs" and even ATS™ look like 
slowpokes — whether vou're planning taxes. plotting charts or 
playing games! Take a look ata few of the features that set 
TransWarp apart 
° 3.6 MHZ 65C02 
° 250K of ultra-fast on-board 


* Totally transparent operation 
with all software 


RAM * Plugs into any slot, including 
* Accelerates main cad auxiliary slot 3 on the Apple He 
memory * Aceclerated 16 bit option 


* Low power consumption for awailable 


cool operation 


Satisfaction guaranteed! 

Give vour Apple the ee advantage. With our risk-free 15- 
dav money back guarantee, vou have nothing to lose but wasted 
time. Call toda! 

‘TransWarp Accelerator... $2 
16 bit upgrade (may add Tater) 38 
For fast response: 

Call Applied Engineering. 9 am. to TE p.m. 7 days at (2 b+) 
241-6000. MasterCard, VISA and COD. welcome. Texas residents 
add 3!% sales tax. Add $10.00 if outside US-A, 

Or mail Check of Money order to Applied Engineering. PO. Box 
798, Carrollton, TX 74006. . 


Fe Applied Engineering 
The Apple enhancement experts. 


P O. Box 798, Carrollton, TX 75006 (214) 241-6060 
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The meat of the program begins at MY.RWTS- We enter here with 
slot*$10 in the A register so we can check to see if we need to 
handle this call. If not we execute the instructions we 
overwrote with the JMP and go back to the normal RWTS. If is 
is our call, the first thing we dao at MINE is check to see if 
we handled the last RWTS call aS well. If so, all is well, but 
if normal RWTS was used last then it clobbered the butfer at 
SBBOO. We therefore trash LAST.BLOCK so the testsS down at 
CHECK.FOR.RE.READ will be forced to read a new block. 


SET.BLOCK tranforms the requested track and sector into a block 
number, in the process setting carry to indicate whether we 
want the high or low half of the block. SET.POINTERS then 
creates two pointers for MY.BUFFER and IOB.BUFFER, uSing that 
Carry bit along the way. At SET.DRIVE we check which drive is 
called for and modify BLOCK to read the other half of the 
diskette if it says drive Z. While we're at it. we plug the 
drive number into the volume number found, so it will appear as 
the volume number in a CATALOG. SET.COMMAND gets the command 
and makes sure it's either READ or WRITE. Anything else 
becomes a NOP. 


At CHECK.FOR.RE.READ we compare the block number requested with 
the number of the block in the buffer and if they're different 
we go on to read the new block. If we already have the block 
we need, CHECK.FOR.VTOC double-checks to see if it's a VTOC 
we're reading. If so, we need to re-read it anyway, in case 
it's now a different disk in the drive. Once all that 
rigamarole is out of the way, the eight bytes at READ are all 
it takes to actually read the block! 


At SKIP.READ we get the command again. (I just noticed that we 
can move the SET.COMMAND code to this point, since doing an 
extra READ won't hurt anything, even if the command is bad. 
That way we can eliminate MY.COMMAND and its STA and LDA 
instructions. Furthermore, changing the CMP #2 to an LSR ana 
changing the BEQ to a BCC Shaves out another byte, for a total 
of five fewer bytes. There's always more space to be found!) 
If the command is a READ then READ.MOVE.BUFFER copy MY.BUFFER 
into the IOB's buffer and we're done. If it's a WRITE, 
WRITE.MOVE.BUFFER copies the other way, from the IOB buffer 
into mine, and then calls the ROM to write out the block. Then 
GOOD.EXIT clears carry and loads a return code of zero before 
branching to the end. ERROR.EXIT loads up either WRITE PROTECT 
Or DRIVE ERROR and sets carry before returning to the caller. 


FORMAT 3.5 --- 


Since we threw away INIT to fit all this inside of DOS, and 

since the standard INIT wouldn't put enough VTOC or CATALOG 

space on the disk, we're also going to need a Special FORMAT 
program. 


There are two stages in the process of tormatting a disk: 
initializing all the tracks with address information; and 
writing the VTOC, empty catalog track, and boot program. 
Initializing a Protocol Converter device is easy, just call the 
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PC and let it do all the work. Then we can use our nice new 
RWTS to write all the rest of the neceSsary cata. Just be sure 
that RWTS 3.5 is installed before calling FORMAT 3.5. 


Since this catalog track is 31 sectors long there is room for 
217 files instead of the normal 105. Other than the length, 
the structure is exactly the same as a normal DOS catalog. ‘The 
differences in the VTOC are bytes $34-35, the number of tracks 
per disk and sectors per track, and the bitmap. The bitmap 
skips tracks $0 and $ll, fills all four bytes per track rather 
than alternate pairs, and extends all the way to the end of the 
sector. 


The boot program here is just a quick message. I hope to have 
a real boot loader ready for next month's AAL. 


1OnG SAVE S.UNIDISK RWTS 
05- Mae UNIDISK. SLOT EQ 5 
26—- 1080 MY . COMMAND -EQ $26 
C= eno MY .BUFFER . POINTER ~EQ C 
E~ 1060 IOB.BUFFER.POINTER' .EQ E 
8- Oho IOB. PTR ~EQ 8 
BBOO- 380 MY .BUFFER ~EQ $BB00 
BD12= 1110 PATCH. POINT ~EQ $BD12 
BD15= ee PATCH. RETURN -EQ $BD15 
C500- 110 PC.DISPATCH ~EQ UNIDISK. SLOT #$100+$C000 
FDDA-= 1160 PRBYTE ~EQ $FDDA 
FDED-=- Aho COUT ~-EQ $FDED 
1190 ~OR moog 
ate ITF RWTS 3.5 
1220 INSTALL 
0803= A2 06 1230 LDX #6 make sure we have a 
0805- BD 61 08 12 | LDA ID. TABLE,X protocol converter 
O8usb—- DD 01 C5 Vene CMP UNIDISK. SLOT #$100+$C001,X 
O3SOB=- DO 31 1260 BNE NO.PC 
O8UD= CA 1eh0 DEX 
O8UE= CA 1280 DEX 
O80F- 10 F4 1300 BPL .1 
0811— AQ HC 1310 LDA #$4C atch in the JMP 
gigs ge Ue tag eh pbseuggrer Bo ou done 
ob ie $B 13 wo Tf STR PATCH Bora: 
08 1D- 8p 14 BD 1360 STA PATCH. POINT+2 
20= 
0822=- 8D 4F A5 1380 STA ; 54F disable INIT 
0825—- AO E8 1880 MOVE LDY #IMAGE.SIZE+1 install our code 
0827- B OL 08 1410 .1 LDA IMAGE-1,Y 
O82A- 3 BE 1420 STA MY. RWTS-1,Y 
082D—- aie DEY 
O82E- DO F7 Mi : BNE .1 
0830- 18 1420 CLC 
0831—- AD FF C5 ete LDA UNIDISK. SLOT #$100+$COFF 
0834—= 69 o3 1480 ADC #3 find protocol 
0836- 8D é BF Lee STA READ.CALL converter entry 
0839- 8D 6A BF 1500 STA WRITE.CALL 
083C=- DO OD Pa BNE DONE ~ee- always 
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SCESCEEEESEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEES 


NEW!!! If INAMAC: $69.00 
This Apple I] emulator runs DOS 3.3 and PRODOS programs (including 6502 machine language routines) on a 512K 
Macintosh. All Apple Il features are supported such as HI-RES/LO-RES graphics, 40/80 column text screens. 
language card and joystick. Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk 
accessories and support for 4 logical disk drives. Package includes 2 MAC diskettes (PROGRAM holds emulation, 
communications and utility software, DATA holds DOS 3.3 and PRODOS system masters, including Applesoft and 
Integer BASIC) and | Apple || diskette (transfer software moves disk images to the MAC). 


NEW!!! SCREEN.GEN: $35.00 


Develop HI-RES screens for your Apple |i on a Macintosh. Don't be limited by MousePaint or other screen 
editors. Use MACPAINT (or any other application) on the MAC to create your Apple Il screen. Then use 
SCREEN.GEN to transfer directly from the MAC to the Apple II (with SuperSerial card or equivalent). Package 
includes Apple I! diskette with transfer software plus fully commented SOURCE code. 


NEW!!! MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MIDI-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-M4AGIC compatible 
with Apple II family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special printer functions (like expanded, compressed etc.) 
supported. HIRES screen editor lets you create your own characters and special graphics symbols. For Apple Ii, 
li+, //e. Specify printer: Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/100, or OkiData 92/93. 

* The Font Downloeder & Editor for the Apple Imagewriter Printer. For use with Apple li, 
\l+, //e (with SuperSerial card) and the Apple //c (with builtin serial interface). 

* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple {i machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables, displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 
The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 

Converts a ‘dumb’ paraliel printer I/F card into a ‘smart’ one. Command menu eliminates need to remember 
complicated ESC codes. Features include perforation skip, auto page numbering with date & title. Includes large 
HIRES graphics & text screen dumps. Specify printer: MX-80 with Graftrax-80, MX-100. MX-80/100 with 
Graftraxplus, NEC 8092A, C.ltoh 8510 (Prowriter), OkiData 82A/83A with Okigraph & OkiData 92/95. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 


RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 
C-PRINT For The APPLE //c: $69.00 
Connect standard parallel printers to an Apple //c. C-PRINT plugs into the standard Apple //c printer serial 
port and into any printer having a standard 36 pin centronics-type parallel connector. Just plug in and print! 


Unless otherwise specified, all Apple li diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
SCEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
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O83E- A2 00 1530 NO.PC LDX #0 
1 1 LDA MESSAGES ,X print an error message 


0843- FO 06 1550 BEQ DONE 
O845- 20 ED FD 1560 JSR COUT 
O848- E8 125 INX 
0849- DO F5 1580 BNE 


~AS -/No PC in slot / 
-DA #$B0+UNIDISK. SLOT 
; 878D00 


fo esteaton) 


i=) 
co 
WI 
tJ 
t 

oe] 
~j 
foe) 
o 
=) 
oO 

anh = ond 


0867=- 00 1670 ID. TABLE ~HS §0-FF. 00.FF. 03.FF. 20 
230 Protocol Converter ID Bytes 
0868- 1730 IMAGE .EQ # 
1720 -PH $BEAF 
ue MY.RWTS 
BEAF=- C9 50 1740 CMP #UNIDISK.SLOT#$10 
BEBi- FO 06 i726 BEQ MINE my call! 
BEB3-= AA 1760 TAX not mine, so do 
BEB4= AO OF tie LDY #$F patched-over code 
BEB6- 4C 15 BD ui : : JMP PATCH.RETURN and go back 
1980 MINE 
BEB9= AO OF 1810 LDY é33 
BEBB- D1 48 1820 CMP (IOB.PTR),Y check previous slot 
BEBD=~ FO 0 Io Re BEQ eater same, SO go on 
BEES a ae Thee at ee, »Y set previous slot 
BEC3- 8D 8C BF Ata STA PREF aLoce trash LAST.BLOCK 
1859 SET. BLOCK 
BEC6= AQ 1890 LDA #0 
gece GB aA ar tata one 
CB= 
Bees ak 8 1820 rit f1oB. PTR),Y get track 
BEDO- 2E 8A BF 19h0 ; ROL BLOCK+1 #16 
BED3- 88 1950 DEY 
BED4= DO FY 1960 BNE .1 
Besse Wo ag 13S SEE Gaon 
BEDB= B1 if 4390 LDA (IOB.PTR),Y et sector 
BEDD= 4A 2000 LSR 2, odd/even into carry 
BEDE= OD 89 BF 2010 ORA BLOCK 
BEE1= 8D 89 BF eect STA BLOCK 
2040 SET.POINTERS 
BEE4= AQ 00 2050 LDA #MY.BUFFER 
BEE6— 85 3C 2060 STA MY.BUFFER. POINTER 
BEE8- 88 BB 2070 LDA /MY.BUFFER 
BEEA- 00 2080 ADC #0 carry sets hi/lo half of buffer 
peees 83 ap at a8 aaah aa 
BEFO=- B1 48 2110 LDA (IOB. PTR) ,Y Ret IOB buffer 
BEERS ee 3E a oy TOB. BUFFER. POI TER 
BEF5=- B1 48 2140 LDA (IOB.PTR),Y 
BEF7- 85 3F 2150 STA IOB. BUFFER. POINTER+1 
BEF9- AO 02 abo Le #2 
BEFD- A010 3200 ive ee cetee 
BEFF- 91 48 2210 STA (IOB.PTR),Y set previous drive 
a 
- DEY 
BFO3= 91 48 55h0 STA (IOB.PTR),¥Y set previous volume 
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With 780 Plus.” Timemaster H.O*; 
run CP/M“the the only clock 


largest bodyof | | ume and bateon 


software in AppleWorks” 
existence. screens and files. 


Now, get two computers in one, 
and all the advantages of both. 


Now, get all the features of 
all the competition combined! 


mer the CP/M world with the new Z-80 Plus card from Applied 


tea sata Appl +e chin: ts the smart way to put the time and date on vour Apple 
enccring: anu : eee he ee 1+ ® or He®. Because only the Timemaster H.O. packs ALL 


sands of CP/M programs. Only the Z-80 Plus comes standard with the 


fara Gack the most advanced system ever for running CP/M the features of all the competition combined, including leap 


vear, vear (not just in PRO-DOS ), month, date, dav of week, 


3 eee ; hours, minutes, seconds and milliseconds. Its totally PRO-DOS, 
ee et ee ia DOS 3.3, PASCAL and CP/M compatible. And of course, it works 
pops glass Peale een RSE levvcui art 16 wack Lime? better than any other clock with AppleWorks. 
aoe pana eh sauces older CP/M ; 3 the doer if voure using or writing software for other clock cards, 
mee) eps : ron es ’ Oe bias you're still covered. Because the H.O. will asatomatically emu- 
toNeront et 4 - cr ope late them. And the Timemaster H.O. adds 14 new commands to 
shin dad - eae if ee led a BASIC. The H.O. even comes complete with two disks full of 
more panes a = ify ae tn to 1088K sample programs, including a computerized appointment 
rae : — ~ ‘ _ asi book, a DOS dating program, interrupt programs, and over 30 
; : rograms that others charge extra for — or don't even offer. 
Each 7-80 Phus‘comes wah our CPM eee As a low-cost option, you can add true BSR remote control 
icicgai ee ice m oe ee ce ee pae to the H.O, giving you remote control of up to 16 lights and 
Avail ai eres pass ; panei Beds renegade appliances in vour home or office. 


Simply plug the Z-80 Plus into any slot in your Apple. You'll get the * Fully PRO-DOS and DOS 3.3, CP/M and PASCAL compati- 
benefits of two computers in one — all at an unbelievably low price ble ¢ Time in hours, minutes, seconds and milliseconds 
(only $1391). (the ONLY PRO-DOS compatible card with millisecond 

: ; capability); date with vear, month, day of week and leap vear 
* Pully compatible wth ALL CP/M software —_* Fully compatible with ¢ 24-Hour military format or 12-hour AM/PM format * Eight 
most hard disks, including Corvus and the Sider _* Fully compatible software controlled interrupts so vou can run two programs 
with Microsoft disks (no pre-boot required) —_* Specifically designed at the same time (many examples included) — + Allows 


for high speed operation in the Apple Ile (runs just as fast in the AppleWorks to time and date stamp all data automatically 
Apple I+ and Franklin) — * Runs WordStar, (BASE II, Turbo Pascal, * The only clock card that displays time and date on the 
Fortran-80, Peachtree and ALL other CP/M software with no pre-boot AppleWorks screen * Five year warranty 

° Semi-custem I.C. and low parts count allows Z-80 Plus to fly through : ; 
CP/M programs with extremely low power consumption (we use the 
Z-80B) * Does EVERYTHING other Z-80 boards do, plus Z-80 inter- 


ae Se : Call to order today, 9 a.m. to 11 p.m. seven days, or send 

Call to order today, 9 a.m. to 11 p.m. seven days, or send check or check or money order to Applied Engineering. MasterCard, 
money order to Applied Engineering. MasterCard, VISA and C.OD. VISA and C.O.D. welcome. Texas residents add 5¥%% sales tax. 
welcome. Texas residents add 54% sales tax. Add $10.00 outside U.S.A. Add $10.00 outside U.S.A. 


AE Applied Engineering ZA Applied Engineering 
P.O. Box 796, Carroliton, TX 75006 P.O. Box 798, Carroliton, TX 75006 
(214) 241-6060 (214) 241-6060 
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00 
OA 


BF 
BF 


BF 
BF 


BF 


C5 


C5 


ADC 
STA BLOCK+1 
SET. COMMAND 

LD 


Y #36 
LDA (IOB. PTR) ,Y 
BEQ GOOD.EXIT 
CMP # 


3 
BCS GOOD. EXIT 
STA MY.COMMAND 


CHECK. FOR. RE. READ 
LDX #0 
LDY #1 


LDA BLOCK,Y 
CMP LAST. 
BEQ .2 


1 
BLOCK, Y 


INX 
STA LAST.BLOCK,Y 


BNE READ 
CHECK .FOR.VTOC 
LDY #5 


LDA (IOB.PTR),Y 
BNE SKIP. READ 


DEY 

LDA (IOB.PTR),Y 
CMP #$11 

BNE SKIP. READ 


READ JSR PC. DISPATCH 
READ.CALL .EQ 8-2 
-D 


A #1 
-DA PARMLIST 
BCS ERROR. EXIT 


SKIP. READ 
LDA ene 


.CS. if D1 
add 800 to BLOCK if D2 


get command 

exit if not READ or WRITE 
save command 

zero the teoe 

check two bytes 

compare 

same, so go 

different, Ps “flag it 

and store new value 

now do low bytes 


check the flag 
if different, go read 


get sector 
non-zero isn't VTOC 


get track 
not $11 isn't VTOC 


READ 


check command 


BEQ WRITE.MOVE.BUFFER 


READ .MOVE.BUFFER 
LDY #0 

1 LDA 
STA 
INY 
BNE .1. 
BEQ GOOD.EXIT 

WRITE. oe. tia 

1 
STA 
INY 
BNE . 


WRITE JSR PC. eae 


WRITE.CALL ae 
0 -DA # 


-DA PARMLIST 
BCS ERROR.EXIT 


GOOD. EXIT 
CLC 


LDA #0 
BEQ EXIT 


MY. BUFFER.POINTER) ,Y 
IOB. BUFFER. POINTER), 


Y 


-- always 


at ia . BUFFER. POINTER), Y 
MY. BUFFER. POINTER) ,¥ 


WRITE 


oe always 
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3010 ERROR.EXIT 
BF76= C9 2B 3020 CMP #$2B write protect? 
BF78— FO 83 030 BEQ . 
BF7A=- AQ 4 040 LDA #$40 make everything else DRIVE ERROR 
BF7C=- 2C 35 0 ~HS 2C 
BF7D=- AJ 10 060 .1 LDA #$10 
BF7F- 3 . : SEC 
BF80= AO OD 3090 EXIT LDY bh 
BF82- 91 48 3100 STA (IOB.PTR),Y save return code 
BF84= 60 3139 RTS 

120 8-2 nw wn wwe nee 

3130 PARMLIST 
BF85- 3140 DA #3 3 parameters 
BF86- 01 3120 oDA #1 unit number 
BF87=- 00 BB 160 .DA MY.BUFFER buffer address 
BF89- 3105 BLOCK .BS 3 block number 
BF8C- FF FF 35 ; LAST. BLOCK ~HS FFFF 
BF8E- 3210 -BS $BF97-# 

3220 -E 
Op NF - 230 IMAGE.END .EQ #1 
E/-=- 240 IMAGE.SIZE .EQ IMAGE. END-IMAGE 


1000 *SAVE S.FORMAT.UNIDISK 
05- 1020 UNIDISK.SLOT .EQ5 © 
03D9- 1040 RWTS .EQ $3D9 
C500- 1080 PC.DISPATCH .EQ UNIDISK.SLOT#$100+$C000 
FC58~ 1080 HOME .EQ $FC58 
FDED- 1090 cout -EQ $FDED 
1110 .OR $803 
1120 -TF FORMAT. UNIDISK 
0803- 18 1180 FORMAT CLC 
O8uk- AD FF C5 1150 LDA UNIDISK. SLOT#$100+$COFF 
SBon- Bb OB 08 iro ara Pe.CALL 
080C- 20 00 C5 1160 JSR PC.DISPATCH format the disk 
ORD 03 igo ea 
0810- 9F 08 1210 “DA PC.PARMS 
A ee 
- LDA 
0816- 8D A2 08 1380 STA DRIVE do drive 2 first 
13€0 DO.CATALOG 
0819- 20 94 08 1270 JSR CLEAR.BUFFER 
BETES aE BAGG: 1200 LDh ee ox 
Bk GPO THD BEE tomas stan posster 
0826~ 8C A5 OB 1320 .1 STY SECTOR 
oe ty 03 1380 BRE .2 
082C- 8C 00 09 1350 STY MY.BUFFER+1 mark end of catalo 
Seas £5 Op G8 1409 <2 SEE ME UEEEES2 Hine pointer” 
08 35- Ac A5 08 Fe LDY SECTOR 
= DEY 
0839- DO EB _—-1400 BNE .1 and go b 
083B- 8C A5 08 1410 STY SECTOR eon ane ey meee 


Apple Assembly Line......May, 1986......Copyright (C) S-C SOFTWARE.....Page 13 


1430 DO.VTOC 
Sate 70 9 08 HANG gE guean ourren 
O8432 BC Bi 08 1420 21 LDY VTOC. INDEXES ,X 
0846- BD BC 08 1470 LDA VTOC.VALUES ,X 
08419- 99 FF 08 14 0 STA MY.BUFFER,Y set VTOC header info 
OB4D- EO OB 1560 CPX #ENTRY. COUNT 
O84F- F2 1 BCC . 
0851- i A2 08 1520 LDA DRIVE use drive # for volume 
0854- 8D 05 09 1530 STA MY. BUFFER+6 
co en ne ial 
O85A- C8 1220 se INY skip a track in bitmap 
O85B- C8 1570 INY 
ci an 
085E- 9 FF 08 1600 3 STA MY.BUFFER,Y mark free 
0862- FO 06  =1620 BEQ .4 leave if done 
0864- CO 7C 16 30 CPY #$7C track $112 
0866- FO F2 1640 BEQ . yes, skip it 
0868- DO F4 1690 BNE “B no, go on 
O86A- 20 89 08 1660 .4 JSR CALL. RWTS 
O86D- CE A2 08 1o70 DEC DRIVE now go back and 
0870- DO A7 16 0 BNE DO.CATALOG do drive one 
1780 DO.BOOT. SECTOR 
O872= EE A2 08 1710 INC DRIVE that was drive one, 
oe ta. 20 Eh ae eo JSR Eat at BUEERE % wave a boot sector 
0878- 8D A 1 STA TRACK = 
OB 4Ba D A5 08 19ho STA SECTOR 
O87E- AO 38 1750 LDY #BOOT. SIZE 
0880- B9 C7 08 1760 .1 LDA BOOT.IMAGE,Y install the image 
088 = 99 FF 08 1770 STA MY. BUFFER ,Y 
0887- 10 F7 17.90 ; BPL .1 fall into CALL.RWTS 
1819 CALL. RWTS 
0889- A9 08 1820 /I0B 
O88B- AO AO 1830 LDY #I0B 
O88D- 20 D9 03 1840 JSR RWTS 
0890- 0 01 1390 BCS ERROR 
0893- 00 1879 ERROR BRK 
1890 CLEAR .BUFFER 
pb06s Ob... Note TYA 
0897- 9 FF 08 1920 “4 STA MY. BUFFER ,Y 
O89B- DO FA 1980 BNE .1 
089D- 60 1950 F RTS 
O89E- 01 1970 PC.PARMS .DA #1 one parm 
O89F- 01 icae . DA #1 unit one 
O8A0- 01 2000 IOB .DA #1 
opase 50 5020 DRIVE (be eM t Oa SK. SLOTSG 10 
08A3- 00 2030 VOL “DA #0 
O8Ah- 20h0 TRACK .BS 1 
O8A5- 2050 SECTOR .BS | 
O8A6— FB B7 2060 DCT :DA $B7FB 
O8A8- FF 08 2070 BUFFER .DA MY.BUFFER 
BAAR 60 5090 SA #0 
OBAC- 02 2100 COMAND :DA #2 write 
O8AD- 2110 RETURN .BS 1 
O8AE- 2120 P.VOL .BS 1 
08B0- 2180 P.DRIV .BS 1 
D160 Ses ceeecckee eee ese ene 


O8B1- 00 01 02 
O8B7=- 31 34 35 


O8BA- 36 37 2160 VTOC.INDEXES .HS 00.01.02.03.27.30.31.34.35.36.37 
OB- 2170 ENTRY.COUNT .EQ *-VTOC.INDEXES 
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O8BC- O4 11 1F 
O8BF- 03 7A 11 
O8C2- 01 ac 20 


O8C5— 00 VTOC.VALUES -HS O4.11.1F.03.7A.11.01.32.20.00.01 


2180 
2190 
2200 BOOT. IMAGE 
2210 - PH 
2220 BOOT’ .HS 01 
SouG JSR 

O804—- AO 00 22 LDY #0 

0806=- BI 13 08 2250 .1 LDA MESSAGE ,Y 
0809- FO 0 2260 

O80B- 20 ED FD 2270 


BEQ .2 
JSR 

O80E- C8 2280 INY 

O80F- DO F5 2290 

0811- FO FE 2300 .2 


BNE .1 
2310 
MESSAGE 


O8U0- 01 
O801= 20 58 FC 


print message 


BEQ .2 and hang... 
2320 


2330 -HS 8D8D8D 


0813- 8D 8D 8D 
0816- D3 EF F2 
0819- F2 F9 AC 
081C=- AO E3 El 
O81F- EE AT F4 
0822- AO E2 EF 
0825- EF F4 AO 
O828=- C4 CF D3 
O82B- AO E8 E5 
O82E- F2 E5 AO 


0831- F9 E5 
0834— AE 
0835- 8D 87 


38- 


00 2350 


2340 
2360 
53b0 


2390 


EP 


MY . BUFFER 


-/Sorry, can't boot DOS here yet./ 
8D8700 


BOOT.SIZE .EQ ®-BOOT. IMAGE 


We Make Measurement And Control Easy! 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 


All new 1984 design incorporates the 
latest in state-of-art LC technologies. 
Compiete 12 bittA/D converter, withan 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are Measured 
against the Applies GND) of 8 
differential Channels. Most all the 
signals you will measure are single 
ended 

9 sottware programmable full scale 
ranges, any of the 16 channels can have 
any range al any time Under program 
control you can select any of the 
following ranges: +10 volts, #5V, 
t25V, + 1.0V, FSOUMYV, + 25UMV, 

t TOOMV, + SUMV, ar t25MV. 

Very fast Conversion (25 micro seconds) 


Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 

Low power Consumption through the 
use of CMOS devices. 

The user connectot has +12 and -12 
volts On itso you can power your 
SENSOTS. 

Only elementary programming is 
required to use the A/D. 

@ The entre system is on one standard 
size plug in card thal fits neatly inside 
the Apple 

@ System includes sample programs on 


lis PRICE $319 


A tew applications may include the moni 


toring of @ tlow @ temperature @ humidi- 


ty @ wind speed @ wind direction @ light 
intensity @ pressure @ RPM @ soul mois- 
lure and many mure. 


A/D & D/A 
A/D & D/A Features: 
Single PC card 
8 channels A/D 
& channels D/A 
Superfast conversion lime 
Very easy programming 
Many analog ranges 
Manual contains sample applications 


A/D SPECIFICATIONS 
0.3% accuracy 
On-board memory 
Fast conversion (078 MS per channel) 
A/D process totally Uansparent to 
Apple (looks like memory) 
User programmable input ranges are 
0 to 10 volts, 0 lo 5, —§ to +5, - 2.5 
to +2.5.°°5to0, -10 to O. 
The A/D process takes place on a continuous, 
channel sequencing basis. Data 1s aulomalic- 
ally transferred to its proper location in the 
on-board RAM. No A/D converter could be 
easier to use, 


D/A SPECIFICATIONS 

@ 0.3% accuracy 

On-board memory 

On-board output buffer amps can 

drive 5 MA 

D/A process is totally transparent to 

the Apple (just poke the data) 

Fast Conversion (003 MS per channel) 

User programmable output ranges are 

0 to 5 volts and 0 to 10 volts 
The D/A section contains 8 digital to analog 
converters, with Output buffer amplifiers and 
all interface logic on a single catd On-card 
latches are provided for each of the epht 
D/A converters. No D/A Converter Could be 
easier to use. The on-board amplifiers are 
laser-taimmed dunng manulac ture, thereby 
eliminating any requirement for off-set 


nulling. PRICE $199 


SIGNAL CONDITIONER 


Our 8 channel signal Conditioner 1s designed tor use with both our A/D converters. This 
board incorporates 8 F.6.T. op-amps, which allow almost any gain or offset. For example, 
an input signal that vanes from 2.00 to 2.15 volls or a signal that varies from 0 to 50 
mV can easily be Converted to 0-10V output for the A/D. 


The signal conditioners outputs are on a high quality 16 pin gold LC. socket that 
matches the one on the A/D's so a simple sibbon cable connects the two. The signal 
conditioner can be powered by your Apple os from an eaternal supply. 


FEATURES 

@ 45” square for standard card cage and 4 mounting holes for standard mounting. The 
signal ¢ onditioner does not plug into the Apple, it can be located up to ¥%2 mile away from 
the A/D. 


@ 22 pin 156 spacing edge card input connector (extra connectors are easily available i.e. 
Radio Shack). 


@ Lage bread board area. 
@ Full detailed schematic included. 


PRICE $79 


/O 32 


@ Provides 4, 8-Bit programmable I/O @ Your inputs can be anything from 
Ports high speed logic to simple switches 


@ Any of the 4 ports can be pro 
grammed as an inpul of an Oulput 


port 


@ All 1/O lines are TTL (0-5 volt) 
compatible 


@ Programming is made very easy by 
powerful on-board firmware 


@ The !/O 32 is your best choice for any 
control application 


The I/O manual includes many programs for inputs and outputs. 


Some applications include: 
Burglar alacn, diecuon sensing, use with relays to tum on lights, sound buzzers, start 
motors, control tape cecorders and printers, use wilh digital poystick. 


PRICE $89 


Please see our other tall page adn this magazine for intonmabon on Apphed Engineenng s Timemaster Clock Card and other products forthe Apple. 
Our boards are far supernor to most of the Consumer electronics made today AILEC 5 are in high quality sockets with mil-spec. Components used throughout PoC boards are glass epoxy 
with gold contacts, Made in Amenca to be the best in the word. All products compatible with Apple Hand //e. 


Apphed Engineenny’s products are tilly tested with Complete documentation and availuble for immediate delivery. All products are guaranteed with anu hassie three year watranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


Sead Check of Money Order tu. 
APPLIED ENGINEERING 
P.O. Box 798 
Carrollton, TX 75006 


Call (214)241-6060 
9am.to1l pm. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No eatra charge for credit cards 
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RamWorks IT 


| 

| 

The Best Selling, Most Compatible, Most 
Recommended, Most Expandable Card Available. 
| 


: a8 iment te 
* PATENT PENDING | 


‘ $ 
& v4 
‘ 
ba 
ee 
% 8 


3 


Ea 
* 
E¢ 
Bis 
a3 
Pe 
Ee 
a 
ES 
Bs 
Ee 
2 ae 
a 
ay 


© APPLIED ENGINEERING 7. 
= ee ne 


64K to 16 MEG! RamWorks II Is Number One. 


| ee ee ee | Works II even expands the clipboard. industry's only low profile (no slot 1 


because it does the most , And auto segments large files so they can | interference) fully decoded memory ex: | 
| be saved on two or more disks. pansion connector. You can also choose | 
The AppleWorks Amplifier. RamWorks II, nothing comes dose to | non-volatile, power independent expand: | 
While RamWorks II is recognized by | enhancing AppleWorks so much. ers allowing permanent storage for over | 
all memory intensive programs, NO 20 years. 
other expansion card comes close to The Most Friendly, Most 


| 
offering the multitude of enhancements | Compatible Card Available. | It Even Corrects Mistakes. | 
to AppleWorks that RamWorks II does. | Using RamWorks II couldn't be easier If you've got some other RAM card | 
Naturally, you’d expect RamWorks II to | because its compatible with more off- that’s not being recognized by your | 
expand the available desktop, after all | the-shelf software than any other RAM programs, and you want RamWorks I, | 
Applied Engineering was a yeat ahead/cl | card. Popular piogtanis like Apple Wode you're in luck Because all you have to | 
everyone else including Apple in of , Pinpoint, Catalyst, MouseDesk, Howard: | 
fering more than 55K in AppleWorks and | Sofi, FlashCalc, The Spread Sheet, Manag- 
we still provide the largest AppleWorks ing Your Money, SuperCalc 3a, and | 
desktops available. But a larger desktop | MagiCalc to name a few (and all 
is just part of the story. Just look at all the | hardware add on’s like ProFile and Sider ! 
AppleWorks enhancements that even hard disks). RamWorks II is even com- | 
Apple's own card does not provide and | patible with software written for Apple 

only RamWorks II does. With a 256K or | cards. But unlike other cards, RamWorks | 

larger RamWorks II, all of AppleWorks II plugs into the Ile auxiliary slot | 

will automatically load itself into RAM providing our super sharp 80 column 
dramatically increasing speed by elimi- | text in a completely integrated system 
nating all the time required to access the | while leaving expansion slots 1 through | 
program disk drive. Now switch from —_| 7 available for other peripheral cards 
word processing to spreadsheet to data- 


do is plug the memory chips from your 
current card into the expansion sockets 
on RamWorks II to recapture most of 
your investment 
The Ultimate in RGB Color. 
RGB color is an option on RamWorks | 
II and with good reason. Some others 
combine RGB output with their memory 
cards, but that’s unfair for those who 


| 
| don’t need RGB and for those that do. | 
_ Because if you don’t need RGB Applied | 
' Engineering doesn’t make you buy it =| 
but if you want RGB output you're in for : 

| 

! 


base at the speed of light with no wear | Highest Memory Expansion. 4 nice surprise because the RamWorks II 
on disk drives. Applied Engineering has always of RGB option offers better color graphics 
Only RamWorks II eliminates Apple- fered the largest memory for the Ile and ; plus a more readable 80 column text 


Works’ intemal memory limits, increasing | RamWorks II continues that tradition by . (that blows away any composite color 
the maximum number of records avail expanding to 1 full MEG on the main monitor). For only $129 it can be added | 
able from 1,350 to over 15,000. Only card using standard RAMs, more than to RamWorks II, giving you a razor | 
RamWorks II increases the number of most will ever need (1 meg is about 500 | sharp, vivid brilliance that most claim is 
lines permitted in the word processing | pages of text)..but if you do ever need __the best they have ever seen. You'll also | 
mode from 2,250 to over 15,000. And more, RamWorks II has the widest | appreciate the multiple text colors (oth- 
only RamWorks II (256K or larger) offers | selection of expander cards available. —__ ers only have green) that come standard |! 
a built-in printer buffer, so you won't Additional 512K, 2 MEG, or multiple 16 | But the RamWorks II RGB option is 

| have to wait for your printer to stop MEG cards just snap directly onto more than just the ultimate in color 

| before returning to AppleWorks Ram- | RamWorks II by plugging into the Output because unlike others, its fully 
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| only the new RamWorks II RGB option 


| compatible with all the Apple 
' for RGB output control, making it more 
,; compatible with off-the-shelf software. 
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standart 


With its FCC certified design, you can 
use almost any RGB monitor because 


provides both Apple standard and IBM 
standard RGB outputs (cables induded). 
The RGB option plugs into the back of 
RamWorks II with no slot 1 interference 
(works on the original RamWorks, too) 
and remember you can order the RGB 


Pe eR EE MMR 


' option with your RamWorks II or add it 


, those who must use large files with 


on at a later date. 


True 65C816 16 Bit Power. 


RamWorks II has a built-in 65C816 
CPU port for direct connection to our 


_ optional 65C816 card. The only one 


| capable of linearly addressing more than 
1 meg of memory for power applications 
| like running the Lotus 1-2-3" compatible 
program, VIP Professional. Our 65C816 
card does not use another slot but 
replaces the 65C02 yet maintains full 8 
bit compatibility. 


Endorsed by the Experts. 
Steve Wozniak, creator of the Apple 
Computer said “I wanted a memory card 

for my Apple that was fast, easy to use, 
and very compatible; so 1 bought 
RamWorks.” A+ magazine said “Applied 
Engineering's RamWorks is a boon to 


AppleWorks...I like the product so 


_ much that I am buying one for my own 
| system.” inCider magazine said “Ram- 
' Works II is the most powerful auxiliary 


| 


slot memory card available for your Ile, 
and I rate it four stars..For my mon- 


_ ey, Applied Engineering’s RamWorks 3 @ 


7. is king of the hill” 

Apple experts everywhere are 
pres by RamWorks II's expand- 
ability, versatility, ease of use, and 
the sheer power and speed that it 
adds to any Ie. With a RamWorks II 
in your Apple, you'll make IBM PC’s and | 
ATs look like slowpokes. 
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It's Got It All 


RGB Option 
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e 15 day money back guarantee 

e 5 year hassle free warranty insures 
coverage no matter where you 
purchase 


e Built-in super sharp 80 column display, 


(with or without RGB) 

e Expandable to 1 MEG on main card 

e Expandable to 16 meg with expander 
card, with NO slot 1 interference 

e Can use 64K or 256K RAMs 

e Powerful linear addressing 16 bit 
coprocessor port 

e Automatic AppleWorks expansion up 
to 3017K desktop 

e Accelerates AppleWorks 

e Built-in AppleWorks printer buffer 

e The only large RAM card that’s 100% 
compatible with all Ile software 


e RamDrive™ the ultimate disk emulation 
software included free 


| e Memory is easily partitioned allowing 


many programs to be in memory at 
once 

e Compatible, RGB option featuring ultra 
high resolution color graphics and 
multiple text colors, with cables for 
both Apple and IBM type monitors 

e Built-in self diagnostics software 

e Lowest power consumption (patent 
pending) 

e Takes only one slot (auxiliary) even 
when fully expanded 

e Software industry standard 

e Advanced Computer Aided Design 

e Used by Apple Computer, Steve 
Wozniak and virtually all software 
companies 

e Displays date and time on the Apple. 
Works screen with any PRO-DOS 
compatible clock 

e Much, much more! 


$179 
$219 
$269 
$369 
$539 
CALL 
$159 
— $129 
 $ 50 


RamWorks I! with 64K 
RamWorks li with 256K 
RamWorks Il with 512K 
RamWorks li with 1 MEG 
RamWorks Ii with 1.5 MEG 


RamWorks Il with 3 to 16 MEG 
65C816 16 Bit Card 

RGB Option | 

256K  Veaee 


RamWorks I. The industry standard 
for memory expansion of the Apple Ile. 

ORDER YOUR RamWorks II TODAY. 
9 am. to 11 pm 7 days, or send check 
or money order to Applied Engineering, 

MasterCard, Visa and C.O.D. welcome. 
Texas residents add 5%% sales tax Add 
$10.00 if outside USA 


it Mat adod 


Applied Engineering 
P.O. Box 798, Carroliton, TX 75006 
(214) 241-6060 
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Recovering & Repairing Lost Programs......Peter Bartlett, Jr. 
Eldridge, Iowa 


As a long-time user of the S-C Macro Assembler, I have learned 
a few tricks to save a lot of aggravation. Sometimes I 
mistakenly erase the source program I have in memory with the 
"NEW" or “LOAD" command. The program is not actually gone; 
instead, the pointer to the start of the program is changed. 


At one time. I would adjust the source pointer by hand until my 
program was restored, but this was slow and painful. So like 
all good hackers I now have a little program to find the start 
of a program and adjust the pointer automatically. 


My “Find.Start" program searches through memory for a source 
line numbered 1000 and resets the source pointer to that line. 
The search begins at HIMEM and proceeds down until it finds 
line 1000 or address $800. 


The program itself is a simple search for the two-byte hex 
equivalent of 1000. On entry, the program starts the search at 
HIMEM and sets the “DONE.ONCE“ flag so subsequent re-entries 
pick up the search where it last left off. 


After the program stops, you can run it again to find the next 
lower source line numbered 1000. If several programs have been 
loaded into memory, you can run "Find.Start” several times to 
point to the start of each one. 


The only way to start the search from HIMEM again is to re-load 
the program. It's not elegant, but does it really need to be? 


In many instances, the next step is to re-construct the 
scrambled part of a program. This usually seems impossible. 
because the program's internal pointers will probably be 
scrambled and cause weird problems when editing. 


Instead of fighting with the program (or hand-patching as I 
used to do), just use the handy “TEXT“ command built into the 
assembler to create a text version of your program. Then enter 
the “AUTO” mode and “EXEC"“ the text version of your program 
back into memory. This will rectify all the internal pointers 
and leave you free to edit your program back into shape. 


Perhaps that last paragraph is obvious, but I didn't think of 
it until recently. And we've had the "TEXT" command available 
for a long time! 


0 : SEARCH FROM HIMEM TO R 


2 PP FOR LINE "1000" 
Ro : SET $CA,CB TO BEGINNING OF THAT LINE 


1 
1 
1 
1 
FOU. 2.222026 he ee 
00- 1050 SRCP_ «EQ $00, 01 
4c. 1060 HIMEM .EQ uC, 4D 
CA- 1070 PP A,CB 
1090 oR $300 
OR $300 
(OO) @sesenS6 22 ooo ese otee ees 
1110 DO 
0300- AG A6 cA 1120 LDX PP PP IF NOT FIRST TIME, 
= A PP+1 START WHERE WE LEFT OFF 
0304~ ae is 03 1180 BIT DONE. ONCE.FLAG 
0307- 30 08 ~ 1150 BMI .1 ». NOT FIRST TIME 
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1160 #---HAS TO BE A FIRST TIME------- 
0309- 38 1170 SEC SET. FLAG 
O30A- bE 45 03 1180 ROR DONE. ONCE. FLAG 
O30D- A6 4C 1190 LDX HIMEM START AT TOP OF SOURCE AREA 
O30F- A5 4D 1200 LDA HIMEM+1 
1210 #---STORE STARTING POINTER------- 
0311- 86 00 ~3=1220 .1 STX SRCP 
0313+ 85 01 1230 STA SRCP+1 
0315- 20 3C 03 12h0 JSR DEC. SRCP 
1250 #---SEARCH FOR "1000"----------~-- 
0318- 20 3C 03 1260. JSR DEC. SRCP 
031B- A5 01 1270 LDA SRCP+1 
031D- C9 08 1280 CMP /$0800 DON'T SEARCH BEYOND $800 
O31F- 90 1A —«-1290 BCC . ..END OF SEARCH 
0321- AO 00 1300 LDY #0 
0323- BI 1310 LDA (SRCP),Y 
0325- C9 E8 1320 CMP #1000’ COMPARE LO-BYTE 
0327- DO EF 1330 BNE .2 ...NO, KEEP SCANNING 
0329- C8 13 0 INY ». MATCH, CHECK HI-BYTE 
032A- B1 00 1350 LDA (SRCP),Y 
032C~ C9 0 1360 CMP /1000 
032E- DOE 1370 BNE .2 ...NO, KEEP SCANNING 
1380 #---FOUND IT, POINT PP TO IT----- 
0330- 20 3C 03 1 90 JSR DEC.SRCP BACK UP OVER BYTE COUNT 
0333- A5 00 ~ ©1400 LDA SRCP 
0335- 85 CA 1410 STA PP 
0337- A5 01 1420 LDA SRCP+1 
0339- 85 CB 1430 STA PP+ 
033B- 60 1440 .3 RTS 
G0 Seeks eae ee roe ee 
1460 DEC. SRCP 
033C- A5 00 1470 LDA SRCP 
033E- DO 02. ~=—«: 1480 BNE .1 
0340- C6 01 14.90 DEC SRCP+1 
0342- C6 00 1500 .1 DEC SRCP 
O344- 60 1510 RTS 
(520 Soiwiess cose ree eee 
0345= 00 1530 DONE.ONCE.FLAG .HS 00 


RAMWORKS" 


ACCEPT NO SUBSTITUTES. 
BECAUSE THERE AREN’T ANY. 


Wiscces only one card like RamWorks. We’ve got the best hardware 
design. We supply the best software and we've got the best support from 
software companies. 


If someone tempts you with an imitation, please get both sides of the 
story. You'll discover why RamWorks offers the best enhancements to 
AppleWorks and other programs, and at the lowest price. 


GUARANTEED! 


214-241-6060 Va 


“‘We Set the Standard”’ 
9 AM-11 PM APPLIED ENGINEERING 
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More and Better Division by Seven.........-Bob Sander-Cederlof 


I can think of at least three good reasons we need a good 
subroutine for dividing by seven. We need it in computations 
involving the day of week. We need it in hi-res graphics 
programs to calculate the byte and bit for a particular pixel 
between 0 and 279 for normal hi-res, or between 0 and 559 for 
double hi-res. Lastly, the new protocol converter interface 
used in connection with the Unidisk 3.5 works with packets of 
up to 767 bytes which are made up of a number of 7-byte groups. 


In looking through the assembly listing of the new //c ROMS, 
which come with the Unidisk 3.5 update, I noticed a diviade-by- 
seven subroutine at S$CB45-CBAF. The code divides the butter 
size, which can be up to $2FF, by seven, and saves both the 
quotient and the remainder. The code looks too large and too 
Slow and too complicated ... in other words, it looks like a 
challenging assignment. My transposition ot the //c code 
follows, and as I count cycles it takes trom 133 to 268 cycles 
depending on the value of the dividend. The code and tables 
take 71 bytes in the //c ROM. 


While I was muSing on the possibilities, Michael Hackney called 
me from Troy, New York. He wondered if we were interested in 
publishing his fast 65802 routine for dividing by seven, 
Michael uses his in a speedy double hi-res program. He divides 
values up to 559 ($22F) by seven, keeping both the quotient and 
remainder, in 66 cycles. Michael's subroutine itself is short 
(37 bytes), but he uses a 140-byte table to achieve the speed. 
Adding another 84 bytes to the tables extends the range to 
handle dividends up to 895 (S$37F). 


(In all the times and lengths given here, I am not counting the 
JSR-RTS cycles nor the RTS byte- I assume the code is critical 
enough that it would be placed in-line in actual use. rather 
than made into a JSR-called subroutine. I am also not counting 
any overhead I added to switch from 65802 mode to 6502 and 
back, as this was only added due to my test program being in 
65802 mode. All of the subroutines use page zero for variable 
and temporary storage. They woulda be longer and slightly 
Slower if the variables and temporaries were not in page zero.) 


Yesterday I spent the whole day dividing by seven. I came up 
with two new subroutines: one for the 65802, and one for a 
normal 6502. They are both small and fast. First I tackled 
the 65802 version, and based in on multiplying by 1/7 as a 
binary fraction. This one came out 39 bytes long, executing in 
64 cycles. This one used a fudge factor; the largest diviaend 
it can handle is 594 ($252). By uSing alternate code to extend 
the precision, numbers up to 895 (S$37F) can be handled. This 
one takes the same number of bytes, but 9 cycles longer. 


Finally, I wrote a normal 6502 version. Strangely enough, it 
came out only 60 bytes long and only 76 cycles! Makes me 
wonder if I coulan't do better in the 65802, given another day 
Or two. The 6502 version handles dividends up to 1023 (S3FF). 
It woula be two bytes shorter if the range was restricted to 
S2FF. 
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Here is a table summarizing the size, timing, and dividend 
range for the various subroutines: 


bytes cycles dividend 


//c ROM 71 133-268 O-S2FF 
Hackney 65802 177 66 O-$22F 
RBSC 65802-1 39 64 0-$252 
RBSC 65802-2 39 73 0-S37F 
RBSC 6502 60 76 O-S3FF 


The listing which follows includes all five versions, plus a 
testing program. The testing program runs through the entire 
range from $3FF down to 0. After doing the division by the 
selected method, a check subroutine tests for a valid remainder 
(a number less than 7); it further tests that the quotient*?7 
+remainder = the original dividend. If not, the dividend, 
quotient, and remainder are all printed in hexadecimal. If 
they are correct, the next dividend is tried. A keyboard 
pausing subroutine allows you to stop the display momentarily 
and/or abort the test run. 


Lines 1020-1060 control some conditional assembly which select 
which division method to use. By change the value of VERSION 
in line 1020 I can assemble any one of the four routines. I 
used the "CON" listing option in line 1180 (which is not itself 
listed: it is “1180 ~-LIST CON") so that you can see what 
the un-assembled lines of code are. Other conditional code at 
lines 1720-1860 and 4010-4050 selects options mentioned above. 


Lines 1200-1540 control each test run. I wrote this program 
uSing 65802 instructions, although it would not be difficult to 
re-write it for a plain 6502. Lines 1210-1220 enter the 65802 
Native Mode. and lines 1520-1530 leave it. It is VERY 
IMPORTANT to be sure you do not exit a program and return to 
normal Apple software while still in the Native Mode. The most 
fantastic things can happen if you forget! 


Lines 1580-1950 are my 65802 version. This entire subroutine 
is executed in the 65802 native mode, with the M-bit set so the 
A-register operations are 16-bits. The value 1/7 in binary is 
-001001001001001...forever. Multiplying by than number should 
give the same answer as dividing by seven. It also has the 
Surprising side effect that the three bits after the “quotient” 
portion of the product will be equal to the “remainder"“. The 
values of the fractions from 0/7 to 6/7 are just nice that way: 


repeating same value the first 


fraction decimal in hex three bits 
0/7 -000000 -000 000 
1/7 ~142857.. ~249.. 001 
2/7 ~285714.. ~492.. 010 
3/7 428571... ~6DB.. 011 
4/7 ~571428.. ~924.. 100 
5/7 -714285.. ~B6D.. 101 
6/7 ~857142.. -DB6.. 110 
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Wow! Isn't that neat? More justification for the 
numerologists who claim that seven is the “perfect" number. 


Now it remains to find the most efficient way to multiply by 
that fraction. The method I came up with first forms the 
product for .01000001 (lines 1600-1670). Then I divide that 
result by 8, which is the product for .00001000001 (lines 1680- 
1700). Adding the two products in line 1710 gives me the 
product for .01001001001 (approximately 2/7). Dividing that by 
two gives me an approximation for the division by seven. The 
code that follows in lines 1720-1800 is not assembled, because 
of the ".DO 0" line- What it does is extend the multiplication 
to include one more partial product. The shortest way I coulda 
think of to get that little number is demonstrated in the code 
you see. The extra precision makes my subroutine work for 
dividends up to $37F. It fails above that value because of 
overflow during the multiplication. If I leave out the extra 
precision, the subroutine gets the wrong answers tor some 
numbers at each end of the range. By adding a “fudge factor" 
(a trick learned in college laboratory assignments to force 
experimental results to fit the laws of science), I can make 
all the dividends up to $252 work. The fudge factor adds $000A 
for values in the A-register of $8800 or more, and only $0008 
for values below $8800. 


Line 1870 is the division by two mentioned above. Lines 
1880-1940 shift the first three bits of the remainder over to 
the correct position in the lower byte of the A-register. As I 
waS writing the previous sentence. it suddenly struck me that 
the second set of three bits might be the same as the first 
set, if my multiplications happened to be precise enough. I 
went back to the assembler. changed line 1720 to “.DO 1" so the 
more precise version would assemble, and then replaced lines 
1910-1930 with "1910 AND #7". Guess what! It worked! One 
byte shorter and four cycles faster! That makes it 38 bytes 
long, and only 69 cycles. 


Next is my 6502 version. lines 1970-2370. The first four lines 
Simply save the current state of the M and X bits, and the 
mode, and switch to 6502 emulation mode. They are matched by 
lines 2340-2360, which restore the mode and state. These will 
work regardless of what mode and state the machine was in when 
the subroutine was called. Since the subroutine would normally 
only be used in a 6502, you would leave out lines 1980-2010 and 
2340-2360. I did not count them when timing the code. Back in 
December of 1984 I wrote in these pages of a nifty way to 
divide a one-byte value by seven. I used that method here, for 
dividing the low-order byte of the dividend. I then computed 
the remainder by multiplying the quotient by 7 and subtracting 
it from the dividend. Saving that quotient and remainder, I 
used a table lookup to determine the quotient and remainder of 
the high-order byte of the number- Since it could only have 
the values 0-3, the tables are very short. Then I add the two 
remainders together. modulo 7; and the two quotients, 
remembering the carry from the remainder if any. 


Lines 2030-2170 are essentially the same as published in that 
December issue of AAL, except for the addition of lines 2130, 
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2140, and 2160. With those two lines I am saving a few steps 
in the multiplication by seven that I must do. Lines 2190-2200 
finish the multiplication by seven, by adding the *2 and *4 
values saved above. Lines 2210-2200 form the complement of the 
value. so I can subtract by adding. Normally a complement is 


formed by: 


EOR #5FF 
CLC 
ADC #1 


I do the same with two less bytes and cycles here by preceding 
the addition at line 2230 with SEC rather than the usual CLC. 
I saved a byte and two cycles by storing one less than the 
actual remainder in the table of remainders at line 2400. 


Lines 2420-2640 are called to print out the results when they 
don't meet expectations. Notice lines 2430-2460 and 2610-2630, 
which make sure I am in the correct state and mode. The 
monitor routines will not work correctly in 16-bit state, and 
May not work correctly in 65802 Native mode. 


Lines 2660-2920 check the results. The subroutine returns with 
carry clear if the quotient and remainder are correct, or carry 
set if they are not. I check both by multiplying the quotient 
by seven and adding the remainder to see if the result equals 
the dividend, and I also make Sure the remainder is less than 
seven. It is possible to get an answer with the quotient one 
less than it should be and a remainder of 7. so I had to test 
the remainder. 


The PAUSE routine checks to see if any key has been typed. If 
so, and if it is not a <RETURN>, it waits until another key is 
typed. Note that I had to set 8-bit mode, to prevent the 
softswitch at $C0Ol1l1 from being switched. This also makes the 
CMP work properly. Otherwise the LDA $C000 would get two 
copies of the same character in the two halves of the 
A-register. 


Lines 3060-3540 are essentially the code from the new //c ROMs. 
I re-arranged it a little, to make a stand-alone routine within 
my test-bed, and I changed labels and variable names. Apple 
uses two sets of tables. One gives quotients and remainders 
for 0, $100, and $200 (the high byte of the dividend). The 
other gives quotients and remainders for 0. $08, $10, $20, $40, 
and $80. A loop runs 5 times to add in the quotients and 
remainders for bits 3-7 of the dividend, and then fakes one 
more trip to add in the value of bits 0-2. Not efficient! 


Michael Hackney's code is in lines 3560-4080. I'll quote from 
his letter. 


“Apple hi-res graphics characteristically involve various 
calculations to determine the exact display address from a 
given X,Y pair. Typically, the vertical position (Y) base 
address is found by table look-up. The horizontal, or X, 
position is determined by dividing by 7 (since there are seven 
pixel bits per byte in the hi-res screen). The integer portion 
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S Meg lie/G4O0k lic 


6 Meg 16-Bit Ile 


Don’t buy yesterday's card that doesn’t offer battery backed-up 


RAM or 65C816 new Apple technology just because it’s advertised 
a lot! You can buy Checkmate Technology's State-Of-The-Art 
MULTIRAM RGB RAM CARD” with BATTERY BACKED-UP 
STATIC RAM options that can load & save programs (like 
AppleWorks) for 10 years! It isa FASTER & LESS EXPENSIVE 
REPLACEMENT FOR HARD DISKS, is USER EXPANDABLE 
TO 6 MEGABYTES, compatable with all (100%) 3rd party 
software/hardware, has an optional real 16-Bit65C816 slot saver 
Co-Processor card, sharp 80 columns, super Double Hi-Res, & 
BUILT IN RGB?! It's a direct substitute for Ramworks II or Apple 
Ext 80 column cards & has an amazing 5 year warranty! Unlike 
Ramworks Il, MultiRam fits ALL (even Euro) Apples, can't interfere 
with slot 1 cards & has no soldered chips! 


MultiRam RGB expands to 1 Meg main RAM + 3 Meg’s 
Piggyback RAM + 2 Meg's BATTERY BACKED-UP RAM. Multi- 
Ram lle expands to 768k & can piggyback w/ MultiRam RGB. A 
POSSIBLE 6 MEGABYTES IN ONE SLOT - MORE THAN 
RAMWORKS I! & Flipster™. 


FREE APPLEWORKS EXPANDER SOFTWARE that loads ALL 
(even printer routines) or PARTS of AppleWorks, runs 30 x faster, 
increased Desktop over 3024k, auto-segments large files onto 
multiple disks, stores over 16,000 records! FREE APPLEWORKS 
TIME/DAY/DATE ON-SCREEN, AUTO-COPY TO RAM, ULTRA- 
FAST PRODOS/DOS 3.3 RAM DISK & RAM TEST, optional CP/M 
& Pascal Ram disk! 


MultiRam MultiRam 
Ne 
Card 


129. 
139. 
175. 


64k MULTIRAM 
128k MULTIRAM 
320k MULTIRAM (256k + 64k FREE) 
576k MULTIRAM (256k + 64k FREE) 
832k MULTIRAM 
1024k MULTIRAM 
1280k MULTIRAM 
1536k MULTIRAM 
1792kKMULTIRAM 


256k Memory Chips-1 yr warranty (8) 

Apple lie Enhancement Kit 

Accelerator lle-350% speedup card 
Accelerator lle + Pinpoint (special) 
Clockworks Card (Thunder/Time HO™ comp) 
Pico™ Slimline Drive llc, lle, 1+ 

FD-100 Slimline Drive Ile, II+ 

Pinpoint Program or Spell Checker (ea) 
65C816 EX Co-Processor Card 

RGB Connectors & Cables* 


Terms: Add $4-Ground or $6-Air shipping & phone # toeach U.S. 
card order (foreign orders/FPO/APO extra). Add 3% for Master- 
Card/Visa (include #/expir) & P.O.’s (8% 7 Net 30). For fast 
delivery send Cashier’s/Certified check, Money Order. C.O.D. 
(add $5) & personal checks accepted (allow 16 days). Tex res add 
6 %e% tax. 


MukiRam, Ramworks/Ramworks It/Timemaster Ii H.O./Z-ram, Pico, Flipster, respective trademarks of 


Checkmate Technology, Applied Engineering, WGE, Catech. 


COIT VALLEY COMPUTERS 


640K 16-Bit lic 


Checkmate Technology's State-Of-The-Art lic cards easily 
expand your Ilc up to 640k, are 100% compatable with ail llc 
software/hardware, & come with the SAME FREE SOFTWARE 
as MULTIRAM Ile (see above). MULTIRAM C is non-upgradable, 
MULTIRAM CX can be upgraded with a real 65C816 kit to likely 
run software for the new Apple computer! 


¢ UNLIKE Z-RAM™, THERE ARE NO JUMPER WIRES, CLIPS 
TO ATTACH, SOLDERED CHIPS, OR DRIVE REMOVAL 
REQUIRED FOR INSTALLATION. 
USES ABOUT 50% LESS POWER than Z-RAM causing less 
power supply strain or battery pack drain! 
15 DAY MONEY BACK SATISFACTION GUARANTEE, 5 YR 
WARRANTY, & LOWER PRICES - We sell llc cards for much 
less & our software updates are FREE & AUTOMATIC, while 
others charge $10 or more! 


OUR LOWEST PRICE 
Eee 


256k MULTIRAM C (While supply lasts) 
512k MULTIRAM C (While supply lasts) 


256k MULTIRAM CX 
512k MULTIRAM CX 


65C816 CX Kit ($10 less w/ card) 

VIP Professional w/ any 65C816 

llc System Clock (Same as Applied Eng) 
CP/M & Pascal Ram Disk (ea) 


WHY BUY FROM COIT VALLEY COMPUTERS RATHER 
THAN SOME MAIL ORDER HOUSES? Only we offer an exclu- 
sive 15 day money back satisfaction guarantee, double software, 
more support, free automatic software updates, free 64k with 
each 256k/512k card. We know the products well, & we have 
them in stock. CALL FOR DETAILS, CURRENT PRICES, 
QUANTITY DISCOUNTS, OR NEW FEATURES! SCHOOLS & 


GROUPS WELCOME. 
ORDER FORM 
(214) 234-5047 


COIT VALLEY COMPUTERS 
14055 Waterfall Way Dallas, Texas 75240 


NAME 
ADDRESS 
UY aa a _________ ZIP 


PHONE ( 
SIGNATURE 16 


ary[pescRPTION CC 


(214) 234-5047 
Dallas, Texas 75240 


14055 Waterfall Way 
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of the division is the byte offset from the baSe address, and 
the remainder is the position in the byte. Brute calculation 
(which is slow for graphics routines) or table lookup (which 
takes a lot of space) is used to do the daivision. Table lookup 
is usually used in good graphics programs. Hi-res graphics 
require two 280-byte tables, one for quotient and one for 
remainder. Double hi-res requires tables twice as big. My 
interest in 65802/816 double-he-res graphics drivers has 
prompted me to find a serviceable divide-by-seven which is 
quick and doesn't require more than one page of memory. 


"The 65802/816 16-bit operations are ideally suited for this 
task. Larger numbers can be easily manipulated and table 
lookup can retrieve 2 bytes of data at once. My routine uses 
both of these techniques to perform its duty. It divides the 
Original number by eight before doing any table lookup (this 
keeps the table smaller). The it mulitplies both the quotient 
and remainder retrieved from the table by 8. The resulting 
remainder is added to the original lower three bits (the ones 
shifted out when I divided by 8), and I look into the table 
again. The first quotient is added to the second quotient, and 
it is finished. The table only takes 140 bytes, storing 
quotients and remainders for numbers up to 69. Everything fits 
in a page with room to spare. 


“As an extra bonus, I included a small routine which generates 
the table in situ. The area occupied by the table generator 
can be used for data storage once the table is built. It takes 
longer to load a table from disk than it does to compute one, 
and the generator dissappears after use, so this is the best 
way to do it.” 


In order to get the greatest speed, Michael's table shoula all 
reside entirely in the same page of memory. That is why I 
included line 4100, which justifies the table to the beginning 


of the next page. 


So here you have four great answers to the challenge. Now it's 
your turn! 


1900 SSAVE BETTER DIV 7+ 
O1- 1020 VERSION _.EQ 1 
O1- 1030 RBSC65802 «EQ 1 
02- 1040 HACKNEY  .EQ 2 
03- 1050 TWO.¢ -EQ 3 
Oh - 1060 RBSC6502 = .EQ 
CM ete lr 
00- 1080 DIVIDEND .EQ 0,1 
02- 1090 QUO.REM =. EQ 2,3 
O4- 1100 T1 .EQ 4, 
06- 1110 T2 EQ 6,7 
1120 #-----------------~-------------- 
FD8E- 1130 CROUT -EQ $FDBE 
FDDA- 1140 PRBYTE .EQ $FDDA 
FDED- 1150 COUT .EQ $FDED 
1160 #-----------~~----~-------------- 
1170 .OP 65802 
1190 Bene occa oseee eee ee soto tees 
1200 TEST 
000800- 18 121 CLC ENTER NATIVE MODE 
000801- FB 1220 XCE 
1230 .DO_ VERSTON=HACK NEY 
1240 JSR BUILD. HACKNEY. TABLE 
1250 .FIN 
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0 REP #$20 16-BIT A-REGISTER 


0008U2- C2 20 126 
ooeoTe 82 bp 1360 toe ee 
000809- A5 00 1290 .1 LDA DIVIDEND 
1300  .DO VERSION=RBSC65802 
O0080B- 20 26 08 1310 JSR DIVIDE.BY. SEVEN. 65802 
OOO80E- 85 02 1320 ory STA QUO.REM QUO IN 15...8, REM IN 7...0 
1380 "DO VERSION =HACK NEY 
1350 JSR HACKNEY.DIV7 
1360 STA QUO.REM QUO IN 15...8, REM IN 7...0 
1370 FIN 
1380 DO VERSION=RBSC6502 
1390 JSR DIVIDE.BY. SEVEN .6502 
1460 FIN 
1410  <.DO VERSION=TWO.C 
1420 JSR DIV7.TWOC 
1430 FIN | 
000810- 20 BD 08 ~=— 1440 JSR CHECK TEST RESULT BY MULTIPLYING 
0008 13- 00 1450 BCC .2... —-..eCORRECT ANSWER 
000815- 20 92 08 ~—«- 1460 JSR PRINT =... INCORRECT DIVISION 
000818- 20 E8 08 1470 2 JSR PAUSE | CHECK FOR KEYPRESS 
00081B- FO 06 1480 BEQ . <RET>, ABORT 
00081D- C2 20 14.90 REP #$20 16-BIT A-REGISTER 
BGUReI= 10 Ee 1210 BEL eacete- ONE 
000823~ 38 1520 .3 SEC RETURN TO EMULATION MODE 
00082h- FB 1530 XCE 
000825- 60 13 0 : RTS 
1380 # QUO = VAL ® .001001001001001 
1260 DIVIDE. BY. SEVEN. 65802 
000826- 85 04 1590 STA T1 SAVE ORIGINAL VALUE 
000828- OA 1600 ASL MULTIPLY BY 64 
000829- OA 1610 ASL 
O0082A- OA 1620 ASL 
00082B- OA 1630 ASL 
a an ne 
OO082E- 65 04 1030 ADC T1 ADD, EQUIV. TO # .01000001 
000830- 85 04 1670 STA T1 SAVE RESULT 
000832- 4A 1680 LSR DIVIDE BY 8, WHICH IS 
0008 33 th 1690 LSR EQUIV. TO # .00001000001 
000835- 65 04 1710 ™ Abe v1 EQUIV TO # .01001001001 
1730 STA T1 EXTENDED PRECISION METHOD 
1740 XBA GET EQUIV. TO ® .00000000000001 
1750 AND ##$00FF 
1760 LSR 
1779 LSR 
1780 LSR 
1790 LSR 
1800 ADC T1 EQUIV. TO # .01001001001001 
18.10 . ELSE | 
000837- C9 00 88 ~—-: 1820 CMP ##$8800 FUDGE FACTOR METHOD 
00083A- 69 08 00 ~—=—1830 ADC ##$0008 ADD $0008 TO ALL VALUES, 
= MP AND 
00083D- C9 00 88 ~—_ 1840 CMP ##$8800 $0002 MORE TO BIG ONES 
000840- 69 00 00 1890 ery Abe #480000 
000843- 4A 1870 LSR DIVIDE BY 2, RESULT IS QUOTIENT 
000844—- E2 20 1880 SEP #$20 IN HI BYTE, REM IN NEXT 3 BITS 
O00846- 4A 1890 LSR ISOLATE REMAINDER IN LO BYTE 
000847 - 1960 LSR 
000848- 4A 1910 LSR 
000849- 4A 1920 LSR 
OOOB4A- 4A 1930 LSR 
O0084B- C2 20 1940 REP #$20 
00084D- 60 1950 : RTS 
1970 DIVIDE. BY. SEVEN .6502 
O0084E- 08 1380 PHP SAVE M&X BITS 
OO084F- 38 1990 SEC SWITCH TO EMULATION MODE 
000850- FB 2000 XCE 
000851- 08 2010 PHP 
0020. Sieceite ooo cecenweeuGesese ieee ce 
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Viewmaster 80; 
the sharpest 
80 column card 
of them all. 


Yl 
Pte 


Now, get great resolution and 
total software compatibility 


for your Apple IT® or IT+®. 


CC). look at the chart will give vou some of the reasons 
theres only one smart choice in 80 column cards for 
vour Apple. But the real secret to Viewmaster 808 succe. . 

something even better: Total compatibility: 

The Viewmaster 80 works with all 80 column applica- 
tions, including DOS 3.3. PRO-DOS, CP M, Pascal. WordStar, 
Format II, Easywriter. Applewriter II, Supertext 80, Zardax, 
Apple PI. Letter Perfect, (BASE IH. Visicalc, Multiplan. and 
hundreds of others. 

And the Viewmaster 80 delivers a super sharp, state-of- 
the-art display with a 7 x 9 character matrix for clear, easily 
readable characters. Here are justa few of the powerful 
features the Viewmaster 80 delivers for a great price ($139): 


° 80 Characters by 24 lines * Fully compatible with all 
Apple languages and software * Super sharp 7 x9 
character matrix with true descenders ° Highest com- 
patibility with existing 80 column software ¢ Power and 
input connector for light pen *Verv low power con- 
sumption * High speed (18 MHZ) scroll rate * Upper 
and lower case characters with true descenders, both in- 
verse and normal: all on-screen editing functions are sup- 
ported * User-definable cursor shape * Compatible 
with Apple II, 11+ and Ie * Five vear warranty 

Call to order today, 9 a.m. to 11 p.m. seven days, or 
send check or money order to Applied Engineering. 
MasterCard, VISA and C.O.D. welcome. Texas residents add 
5%% sales tax. Add $10.00 outside U.S.A. 


Va, wa Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 
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000852- 
000854- 


0008 8A- 
0008 8E- 


00 


24 
03 


02 
00 


04 
06 


O4 
06 


08 


08 


FF 


DIVIDEND 
DIVIDEND 


DIVIDEND 
#$FC 

i 

T2 

ae « REM+1 QUO = LO-BYTE/7 


T2 QUO #7 
#$FF -QU0 #7 


DIVIDEND REM 
DIVIDEND+1 0,1, OR 2 


C RTBL,X 
#7 


#7 
QUO. REM FINAL REMAINDER 


QTBL , X 
QUO. REM+1 
QUO. REM+1 


FINAL QUOTIENT 
SWITCH TO ORIGINAL MODE 
X&M BITS 


#0, #36, #73, #109 
#-1, : #4 


SAVE M&X BITS 
SWITCH TO EMULATION MODE 
ee ORIGINAL MODE (C-BIT) 

PRINT DIVIDEND IN HEX 


PRINT QUOTIENT IN HEX 
PRINT REMAINDER IN HEX 


<RETURN> 
RESTORE NATIVE/EMULATION BIT 


RESTORE M&X BITS 


QUO. REM 
##$FFOO ISOLATE QUOTIENT 


DIVIDE BY 64 FOR NOW 


MULTIPLY BY SEVEN 
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000904 - 


000905- 
000907 — 
OO090A=- 
00090C- 
00090F- 


000911- 
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00 


CO 
CO 


co 
CO 


09 
09 


46 09 


09 


09 


fw fo OS Oa z 
ah 


WOIWIUWIW URW WIWLUIW WLW LIU) 


STA T1 QUO # 7 
LDA QUO.REM CHECK FOR VALID REMAINDER 
AND #4 00FF Ouest 
CMP ## 
BCS .1 .. INVALID REMAINDER 
ADC T1 ADD QUO#7 
CMP DIVIDEND ...BETTER BE SAME! 
BNE .1 ...NOT, INVALID QUO & REM 
CLC SIGNAL VALID ANSWERS 
1 SEC SIGNAL INVALID ANSWERS 
RTS 
Cl a ae ey PG eR ee 
PAUSE 
SEP #$20 8-BIT A-REGISTER 
LDA $0000 CHECK KEYBOARD 
BPL .2 NOTHING TYPED 
STA $C01 CLEAR STROBE 
CMP #$8D <RETURN>? 
BEQ .2 <RET>, SO DON'T PAUSE 
1 LDA $CO00 SOME OTHER KEY, SO PAUSE 
BPL .1 .. TILL ANOTHER REY TYPED 
STA $CO10 CLEAR STROBE 
2 CMP #$8D -EQ. IF <RET> 
: RTS ...ELSE .NE. 
# DIVIDE BY 7 FROM NEW //C ROMS (AT $CB4F-CBBO) 
# USED TO GET NUMBER OF 7-BYTES PACKETS 
a IN A BUFFER, FOR THE PROTOCOL CONVERTER 
DIV7.TWOC 
PHP SAVE X&M BITS 
SEC ENTER EMULATION MODE 
PHP SAVE PREVIOUS MODE 
#.--ALGORITHM FROM //C----------- 
LDX DIVIDEND+1 git BYTE (0, 1, OR 2) 
LDA PDIV7TAB, X $100, OR $260 DIVIDED BY 7 
STA QUO. REM+1 auSrient SO FAR 
LDA PMOD7TAB, X , $100 OR $200 MOD 7 
STA QUO. REM EMAINDER S 
#---PROCESS NEXT 5 BITS" scoswueees 
LDX #5 
LDA DIVIDEND LOW BYTE 
STA T1 WORKING COPY 
AND #7 LOW 3 BITS 
TAY SAVE FOR LATER USE 
1 ASL 11 GET NEXT BIT FROM DIVIDEND IN CARRY 
BCC . IF CLEAR, NO EFFECT ON QUO ,MOD 
LDA MOD7TAB, X GET MOD7 FOR 2°N 
2 CLC UPDATE MOD VALUE 
ADC QUO.REM 
CMP a OVERFLOW? 
BCC . ee 
SBC # ...YES CORRECT | 
3 STA Sho. REM REMAINDER SO F 
LDA DIV7TAB, X GET QUOTIENT FOR 2°N 
ADC QUO. REM+1 
STA QUO. REM+1 QUOTIENT SO FAR 
4 DEX ONE LESS BIT TO DEAL WITH 
BMI .5 . «FINISHED 
BNE .1 . IFIVE TIMES 
TYA GET BACK FIRST 3 BITS 
JMP ADD IN REMAINDER 
#.--RETURN TO CALLER------------- 
: PLP ORIGINAL MODE 
PLP RESTORE X&M BITS 
RTS 


PDIV7TAB .DA £0,436 #73 
PMOD7TAB .DA #0,#4, #1 


MOD7TAB .DA #0,#1,#2,#4,#1,#2 
DIV7TAB -DA #0,#1,#2,#4,#9,#18 
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RamFactor 


All the Performance, Speed, and Software 
Compatibility of RamWorks” in a Slot 1 through 7 Card. 


VT zaisee tease eee 
winner for the auxiary dot in a De, RamFactor is the standard for slots 1 through 7. Now 
amvone with an Apple I+. Frankdin, or Apple Ile preferring to use slots 1 through 7 can now 
enjov the speed and performance that untl now was only available with RamWorks. 

With RamFactor. vou'll be able to instantly add another 256K, 512K, or a full 1 meg on the 
main board and up tw 16 meg with additional piggyback card. And since virtually all software 


i iS ausomancally companible wich RamFactor, you'll immediately be able to load programs into 


RamFactor for mstantaneous access to information. You'l also be able to store more data for 


, larger word processing documents, bigger data bases, and expanded spreadsheets 


Zh DOSS PSD) 
oe oe enn 


ee Fer } 

On © 
By SS} 
Z . 


Very Compatible RamFactor, no other standard slot card 
All the leading software is already com- comes close to enhancing AppleWorks so 

patible with RamFactor. Programs like Apple- | much 

Works, Pinpoint, BPI, Managing Your Money, | Trye 65C816 16 Bit Power 


Dollars and Sense, SuperCalc 3A, PFS, Mouse- 
Write, MouseDesk, MouseCalc, Sensible 
Speller, Applewriter Ile, Business Works, 
ReportWorks, Catalyst 3.0 and more. And 
RamFactor is fully ProDos, DOS 3.3, Pascal 1.3 
and CP/M compatible. In fact, no other 
memory card (RamWorks excepted) is more 
compatible with commercial software. 
AppleWorks Power 

There are other slot 1-7 cards that give 
AppleWorks a larger desktop, but that’s the 
end of their story. But RamFactor is the only 
slot 1-7 card that increases AppleWorks 
internal memory limits, increasing the maxi- 


for direct connection to our Ile 65C816 card 
for linearly addressing up to 16 meg for the 
most powerful 16 bit applications. (I+ 
65C816 card under development) 
Powerful Program Switcher 

With RamFactor, you can organize 
memory into multiple work areas and switch 
between them Each work area can contain 
different programs and even different operat- 
ing systems. Now you can switch from one 
program to another or even switch from 
AppleWorks to DOS 3.3 to CP/M to Pascal to 


mum number of lines permitted in the word ProDos in under a second. And with our 


RamFactor has a built-in 65C816 CPU port 


Features: 

e Up to 16 meg total memory, 256K to 1 
meg on main board Up to 16 meg with 
additional memory on piggyback card 

e Fully Apple II Memory Expansion com- 
patible 


e Compatible with Apple Ile, + and 
Franklin 


e Battery back-up option allows you to tum 
on your Apple and run your favorite 
programs in less than 1 second! 

e Automatically recognized by ProDos, DOS 
3.3, Pascal and CP/M 


|e Built-in RamDrive™ software (a true RAM 


e Systems are directly bootable from Ram- 
Factor if desired 
° Built-in linear addressing 16 bit 


e Automatic expansion with AppleWorks 1.3 
or later 

e Allows Apple II+ and Ile to nun your 
AppleWorks without buying additional 
software 


e Accelerates AppleWorks 

e Displays time and date on the AppleWorks 
screen with any ProDos dock 

e Fits any I/O slot except slot 3 

e Fully socketed and user upgradeable 

e Much, much more 


RamFactor with 256K 
RamFactor with 512K 
RamFactor with 1 MEG 


RamFactor with 2-16 MEG 
Battery Back-up Option 
65C816 16 Bit Card 


Order RamFactor today . . . with 15 day 
money back guarantee and our “no hassle” 
five year warranty. Cal9 am. to 11 pm, 7 
days, or send check or money order to 


pesos and anfar tony san | BR bic erton you te | ge Engesing Vester Vad 
dard slot card that will automatically load sales tax. Add $10.00 if ide USA 
AppleWorks into RAM dramatically increasing | Quality and Support of the 00 if outside 

| Speed and eliminating the time required to | Industry Leader 

access the program disk, it will even display RamFactor is from Applied Engineering, 

the time and date on the AppleWorks screen | the largest, most well supported manufacturer JAE A H 
with anv ProDos dock RamFactor will of Apple peripherals and the inventor of large Applied Engineering 


automancalk: segment large files so they can 
be saved an 344°. 342". and hard disks. All 

this performance is available tw anyone with 
an Apple De or I with an 80 column card. 


The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carroliton, TX 75006 


RAM cards for the Apple. With our 5 year no 
hassle warranty and outstanding technical 
Support, you're assured of the most trouble 
free product you can buy. 
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00 


OA 


FF 


OA 


to 


is 


3560 HACKNEY.DIV7 
S70 A T1 


357 ST 
3580 AND ##$0007 
3220 STA T2 
600 LDA T1 
3610 LSR 
3620 LSR 
3030 LSR 
0 ASL 
650 TAX 
660 LDA TABLE, X 
36 0 ASL 
680 ASL 
3690 | ASL 
3700 ADC T2 
3440 TAX 
20 AND ##$FFOO 
3730 STA T1 
3740 TXA 
3190 ASL 
60 TAX 
3770 LDA TABLE,X 
3780 CLC 
3190 ADC T1 
0 RTS 
3810 # 
3820 BUILD. HACKNEY. TABLE 
3830 PHP 
0 REP #$20 
3850 LDA ##TABLE 
3860 STA T1 
3870 SEP #$30 
0 LDX # 
3890 TXY 
3900 .1 TXA 
3339 STA (71) 
20 INC T1 
39 30 TYA 
3940 STA (T1) 
3390 INC T1 
960 INX 
33/9 CPX #7 
980 BCC .1 
33 20 LDX #0 
0 INY 
4010 #.DO 
4020 CPY #10 
#030 . ELSE 
Ke) Fe CPY #16 
4050 .FIN 
40 BCC .1 
4070 PLP 
4080 RTS 
4090 # 
4100 BS 
4110 TABLE .EQ 
4120 # 


Texas 75228. 
add $14 


SAVE VALUE 
SAVE LOWER 3 BITS (MOD 8) 


DIVIDE BY 8 


DOUBLE FOR TABLE INDEX 
GET QUO & REM FROM TABLE 


MULTIPLY BOTH BY 8 


ADD LOWER BITS BACK 
SAVE RESULT 
KEEP QUOTIENT 


GET REMAINDER 
DOUBLE FOR INDEX 


GET QUO & REM FROM TABLE 
ADD PREVIOUS QUOTIENT 


SAVE M&X BITS 
ONG A-REG 


L 

ALL REGS SHORT 
X = REMAINDER 
Y = QUOTIENT 


STORE CURRENT REMAINDER 
STORE CURRENT QUOTIENT 


NEXT REMAINDER 

-»»NO CHANGE TO QUOTIENT 
NEXT QUOTIENT 

STOP AFTER QUO=9, REM=6 
STOP AFTER QUO=15, REM=6 


-»- NOT YET 
RESTORE M&X BITS 


Phone (214) 324-2050, 
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code is $45 per year in the US, Canada and Mexico, and $87 to other countries. 
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